home *** CD-ROM | disk | FTP | other *** search
/ Day Cry / Day Cry CD.bin / oh_towns / fb386smp / bas / sentaku.bas < prev    next >
BASIC Source File  |  1994-09-20  |  489b  |  23 lines
  1. 100 RANDOMIZE TIME
  2. 110 '
  3. 120 N=10
  4. 130 DIM DAT(N)
  5. 140 FOR I=1 TO N:DAT(I)=INT(RND*100):NEXT
  6. 150 '
  7. 160 PRINT :PRINT "èεû{æIæ≡û@"
  8. 170 PRINT :PRINT "É«ù±æO"
  9. 180 FOR I=1 TO N:PRINT USING"###:###";I;DAT(I);:NEXT
  10. 190 GOSUB *èεû{æIæ≡û@
  11. 200 PRINT :PRINT "É«ù±îπ"
  12. 210 FOR I=1 TO N:PRINT USING"###:###";I;DAT(I);:NEXT
  13. 220 PRINT 
  14. 230 END
  15. 240 '
  16. 250 *èεû{æIæ≡û@
  17. 260  FOR I=1 TO N-1
  18. 270   FOR J=I TO N
  19. 280    IF DAT(I)>DAT(J) THEN SWAP DAT(I),DAT(J)
  20. 290   NEXT
  21. 300  NEXT
  22. 310 RETURN
  23.